home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / GoldED Tools / Macro Collection / FinsGold / TeX / begin.ged < prev    next >
Encoding:
Text File  |  1996-09-27  |  1.7 KB  |  64 lines
  1. /* $VER: begin V 0.61 (02.05.94) Fin Schuppenhauer */
  2.  
  3. /**   Fügt eine \begin{xyz} ... \end{xyz} Umgebung ein. Das Skript
  4.  **   merkt sich den zuletzt verwendeten Umgebungsnamen in der
  5.  **   Clip-Variablen ENVIRONMENT.
  6.  **   Dem Skript kann der Name der Umgebung als Argument "ubergeben
  7.  **   werden. Wird kein Argument angegeben, wird nach dem Umgebungs-
  8.  **   namen nachgefragt.
  9.  **/
  10.  
  11.  
  12. OPTIONS RESULTS                             /* enable return codes     */
  13.  
  14. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  15.     address 'GOLDED.1'
  16.  
  17. 'LOCK CURRENT'                              /* lock GUI, gain access   */
  18. OPTIONS FAILAT 6                            /* ignore warnings         */
  19. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  20.  
  21.  
  22. /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
  23.  
  24. 'QUERY CAT'
  25. german = (result = "deutsch")
  26.  
  27. PARSE ARG ENV
  28. if length(env) > 0 then
  29.    ENVIRONMENT = ENV
  30. else do
  31.    if show('C', 'ENVIRONMENT') then
  32.       OLD = getclip('ENVIRONMENT')
  33.    else
  34.       OLD = "tabular"
  35.  
  36.    if german then
  37.       'REQUEST TITLE="Umgebung einfügen" BODY="Umgebung" OLD='OLD' STRING VAR ENVIRONMENT'
  38.    else
  39.       'REQUEST TITLE="Insert environment" BODY="Environment" OLD='OLD' STRING VAR ENVIRONMENT'
  40. end
  41.  
  42. if rc = 0 then do
  43.    /*'DOWN'*/
  44.    'INSERT LINE'
  45.    'TEXT STAY T="\begin{'environment'}"'
  46.    'DOWN'
  47.    'INSERT LINE'
  48.    'TEXT STAY T="\end{'environment'}"'
  49.    'INSERT LINE'
  50.    'TAB'
  51.    call setclip('ENVIRONMENT', ENVIRONMENT)
  52. end
  53.  
  54. /* ---------------------------- END OF YOUR CODE --------------------- */
  55.  
  56. 'UNLOCK' /* VERY important: unlock GUI */
  57. EXIT
  58.  
  59. SYNTAX:
  60.  
  61. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  62. 'UNLOCK'
  63. EXIT
  64.